From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 7 May 2010 13:52:25 +0000 (+0300)
Subject: cus-start.el (all): Add native condition for tool-bar-* symbols.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~844^2~4836^2
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c0162ade6f6f1300bdf087627f7d19afa480f1fc;p=emacs.git

cus-start.el (all): Add native condition for tool-bar-* symbols.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df7d21c6124..1bced3edfdf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-05-07  Eli Zaretskii  <eliz@gnu.org>
+
+	* cus-start.el (all): Add native condition for tool-bar-* symbols.
+
 2010-05-07  Christian von Roques <roques@mti.ag> (tiny change)
 
 	* lisp/epg.el (epg-key-capablity-alist): Add "D" flag (Bug#5592).
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 07f7702e9d6..bc48aa88cc5 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -408,6 +408,10 @@ since it could result in memory overflow and make Emacs crash."
 		       (fboundp 'define-fringe-bitmap))
 		      ((equal "font-use-system-font" (symbol-name symbol))
 		       (featurep 'system-font-setting))
+		      ;; Conditioned on x-create-frame, because that's
+		      ;; the condition for loadup.el to preload tool-bar.el.
+		      ((string-match "tool-bar-" (symbol-name symbol))
+		       (fboundp 'x-create-frame))
 		      (t t))))
     (if (not (boundp symbol))
 	;; If variables are removed from C code, give an error here!